home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / BIKEINFO.BAS < prev    next >
BASIC Source File  |  1991-02-09  |  1KB  |  39 lines

  1. ' BIKEINFO.BAS
  2. ' This program reads information into three arrays and prints it.
  3.  
  4. CONST PERSONS% = 7           ' number of salespersons
  5. OPTION BASE 1                ' set base of all arrays to 1
  6.  
  7. DIM salesGroup$(PERSONS%)    ' dimension salesGroup$ string array
  8. DIM bikesSold%(PERSONS%)     ' dimension bikesSold% integer array
  9. DIM totalSales!(PERSONS%)    ' dimension totalSales! floating-point array
  10.  
  11. CLS
  12.  
  13. FOR i% = 1 TO PERSONS%       ' get salesperson name and sales data
  14.     INPUT "Enter salesperson name:  ", salesGroup$(i%)
  15.     INPUT "   Bikes sold:  ", bikesSold%(i%)
  16.     INPUT "   Total sales:  $", totalSales!(i%)
  17.     PRINT
  18.     total! = total! + totalSales!(i%)
  19.  
  20. NEXT i%
  21.  
  22. PRINT "You entered the following sales data:"
  23. PRINT
  24. PRINT "Salesperson     Bikes sold     Total sales"
  25. PRINT "------------------------------------------"
  26. PRINT
  27.  
  28. ' initialize tmp$, a formatting template for PRINT USING
  29. tmp$ = "\               \ ###          $$####.##"
  30.  
  31. FOR i% = 1 TO PERSONS%       ' print contents of each array
  32.     PRINT USING tmp$; salesGroup$(i%); bikesSold%(i%); totalSales!(i%)
  33. NEXT i%
  34. to$ = " The total sales are $$###.##"
  35. PRINT
  36. PRINT
  37. PRINT USING to$; total!
  38.  
  39.